(LAP ASSOC SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(JUMPE 1 TAG1) 
	(HLRZ@ 2 1) 
	(HLRZ@ 2 2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG2) 
	(HLRZ@ 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E ASSOC)) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP MEMQ SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(JUMPE 1 TAG1) 
	(HLRZ@ 1 1) 
	(CALL 1 (E ATOM)) 
	(JUMPN 1 TAG2) 
	(HRRZ@ 2 2) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MEMQ)) 
	(JRST 0 TAG1) 
TAG2 	(HLRZ@ 1 2) 
	(CAME 1 -1 P) 
	(JRST 0 TAG3) 
	(MOVE 1 2) 
	(JRST 0 TAG1) 
TAG3 	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MEMQ)) 
TAG4 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP MEMBER SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(MOVE 1 2) 
	(JUMPE 1 TAG1) 
	(HLRZ@ 2 1) 
	(MOVE 1 -1 P) 
	(CALL 2 (E EQUAL)) 
	(JUMPE 1 TAG2) 
	(MOVE 1 0 P) 
	(JRST 0 TAG1) 
TAG2 	(HRRZ@ 2 0 P) 
	(MOVE 1 -1 P) 
	(CALL 2 (E MEMBER)) 
TAG3 
TAG1 	(SUB P (C 0 0 2 2)) 
	(POPJ P) 
	NIL 

(LAP APPLY LSUBR) 
	(JSP 3 *LCALL) 
	(MOVE 1 -1 P) 
	(HRRZ 1 1 1) 
	(MOVEI 2 (QUOTE (EXPR LSUBR SUBR))) 
	(CALL 2 (E GETL)) 
	(JUMPE 1 TAG2) 
	(PUSH P (C 0 0 TAG3 0)) 
	(MOVE 1 -2 P) 
	(HRRZ 1 1 1) 
	(PUSH P 1) 
	(MOVE 1 -3 P) 
	(HRRZ 1 2 1) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E APPLY#)) 
TAG3 	(JRST 0 TAG1) 
TAG2 	(MOVE 1 -1 P) 
	(HRRZ 1 1 1) 
	(MOVE 2 -1 P) 
	(HRRZ 2 2 2) 
	(CALL 2 (E CONS)) 
	(CALL 1 (E *EVAL)) 
TAG1 	(POPJ P) 
	NIL 

(LAP SUBFUN1MAPCAN SUBR) 
	(PUSH P 1) 
	(PUSH P (C 0 0 TAG1 0)) 
	(PUSH P (SPECIAL $R)) 
	(PUSH P (SPECIAL $F)) 
	(CALLF@ 1 0 P) 
	(SUB P (C 0 0 1 1)) 
	(PUSH P 1) 
	(MOVNI 6 2) 
	(JCALL 16 (E NCONC)) 
TAG1 	(MOVEM 1 (SPECIAL $R)) 
	(SUB P (C 0 0 1 1)) 
	(POPJ P) 
	NIL 

(LAP MAPCAN SUBR) 
	(JSP 6 SPECBIND) 
	(0 1 (SPECIAL $F)) 
	(0 2 (SPECIAL $L)) 
	(0 0 (SPECIAL $R)) 
	(MOVEI 1 (QUOTE SUBFUN1MAPCAN)) 
	(CALL 2 (E MAPC)) 
	(MOVE 1 (SPECIAL $R)) 
	(JRST 0 SPECSTR) 
	NIL